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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F( 
F{ 
F( 
FC 
FC 
FC 
FC 
FC 
IS 

FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD DDDDDDDD UU UU | 

FFFEFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD DDDDDDDD UU UU 

FF 00 00 RR RR RR EE AA AA DD DD DD DD UU UU 

FF 00 00 RR RR RR RR EE AA AA DD DD DD DD UU UU | 

FF 00 00 RR RR RR RR EE AA AA DD DD DD DD UU UU 

FF 00 00 RR RR RR RR EE AA AA DD DD DD DD UU UU 

FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD ODD DD UU UU | 

FFEFFFFE 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD DD DD UU UU 

FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD DD DD UU UU 

FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD DD DD UU UU | 

FF 00 00 RR RR RR RR EE AA AA DD DD DD DD uu UU ae 

FF 00 00 RR RR RR RR EE AA AA DD DD DD DD UU UU aectegn 

FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD DDDDDDDD UUUUUUUUUU Rees 

FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD DDDDDDDD UUUUUUUUUU ail 

LL III111 SSSSSSSS 

LL HII SSSSSSSS 

LL II Ss 

LL II ss 

LL I] Ss 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS | 

LL II SS | 

LL Il SS 

LL II ss 

LL II SS | 

LLELLLLLLLL IIII11 SSSSSSSS 

LLLLLLLLLL eeeee SSSSSSSS 
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-TITLE FORSREAD_DU - enery point for FORTRAN ae DIRECT UNFORMATTED 
: IDENT /1-012/ File: FORREADDU.MAR Edit: JAW1012 


=MARBAAAAAAASAAAALALAASALALALELASEA SALLE SESE RE REE ER RR ESE E SEE ESSERE REE EOS E Ra 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
one ’ ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Pp 


) | 


A 

® 

*® 

® 

® 

® 

* 

ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. “ 
*® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
*® 

*® 

® 

® 

® 

® 

® 

*® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. . . . . . . . * 
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++ 
; FACILITY: FORTRAN Support Library + user callable 


e 
o 
° 
° 
. 
° 


; ABSTRACT: 
This module con 


tai 
READ DIRECT UNFORM 
: a call to FOR$$I0O 


entry point for the FORTRAN 
1/0 statement. It is simply 
: ith bits in RO which describe the 
: parameter list. F _BEG interprets the parameters. 
MAINTENANCE NOTE: F 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
. TRANSFER FORSREAD_DO 
MASK 


$$10 BEG 
; BRW FORSREAD_Du+2 
This puts the correct mask in entry vector, that is FOR$$I0_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$$IO_BEG. 
; ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


: MODIFIED BY: | 
: T. Hastings, 29-July-78 


FPWR COONAN WIN 3 O OD NA UE WIN OOO NAU EWN 0 ODNOAU EWN OOONOUS Wn 


PVP BS BS BB BEE EE AMAIA ANIA PONDOPONPONINPONY 2 2 OP OO Os ss 
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point for FORTRAN READ DIRECT UN 15-SEP-1984 23:56:1 AX/VMS Macro V04-00 Page 
Epa 1984 10:59:00 we 5) 

.SBTTL HISTORY ; Detailed Current Edit History | 


Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 

Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. JBS 16-NOV-78 
Change statement type symbols to be LUBSK... JBS 07-DEC-78 
Change statement type symbols to be ISBSK..._ JBS 11-DEC-78 
Add he PSECT di 


d tot rective. JBS 
Add FORSREAD_KF 


- ECe- 
FORSREAD_KO, FORSREWRITE_SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_I0, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD KY FORSREWRITE_SU, 
SBL e-Hay- $79 | 
1-006 = Remove all entry peters that need object time formatting, 
peti them in FORSENTRY_OBJ so that we can arrange to 
oad the forest compiler only when it is needed. 
JBS 26-JUN-1979 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$$IO_BEG, to see how much 1/0 initiation time 
improves. JBS 02-JuL-1979 | 
1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE DU. JBS 03-JUL-1979 
1-009 - Remove all entry points and add FORSREAD_BO; each entry 
point gets its own module do we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
1-010 - Correct some 5yp0s in the references to REC and UDF Levels. 
JBS 12-JUL-19 
1-011 - New parameter format for FORS$S$IO_BEG. SBL 5-Dec-1979 
1-012 - Change BRW FORS$$IO_BEG+2 to JMP G*FORS$IO_BEG+2. JAW 21-Feb-1981 
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_ FORSREAD_DU - entry peiot for FORTRAN READ DIRECT UN (= a i 138% $3: :56:1 AX/VMS Macro V04-00 Page ; | a 
(1-012 DECLARATIONS “SEP=1984 759:0 FORRTL.SRCJFORREADDU.MAR; 1 (3). 1: 


i ‘ -SBTTL DECLARATIONS 
, QO ; INCLUDE FILES: 
3 4 3 
0 38 SFORPAR 3; Define inter-module FORTRAN symbols 
BOS 3¢ SISBDEF : Define statement type symbols 
0000 39 3 
0000 97 ; EXTERNAL SYMBOLS: | 
44 98 ; 
00 99 
444 100 -DSABL GBL ; Declare all external symbols 
4 19) -EXTRN FORS$$10_BEG ; common 1/0 statement processing 
$009 198 : The pol tastng references are to make sure the necessary UDF and REC 
0000 104 ; modules are loaded. These are pe routines which are called through | 
44 } 3 the dispatch tables in FORSSDISPA 
0000 107 eEXTRN FORSSUDF_RUO, FORSSUDF_RU1, FORSSUDF_RU9 
0000 108 -EXTRN FORSSREC_RDO, FORSSREC_RD1, FORSSREC_RD9 
0000 109 
0000 110; 
0000 111 ; MACROS: 
0000 ii 3 
0000 113; NONE 
0000 114 ; | 
0000 115 ; PSECT DECLARATIONS: 
0000 116; 
0000 117 
vanag 8: 18 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 139 : 
0000 121 ; EQUATED SYMBOLS: 
0000 \$¢ ; 
0000 1s 
0000 124 
0000 125; 
0000 126 ; OWN STORAGE: 
0000 ist : 
0000 128; NONE 
0000 129 ; 
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-SBTTL FORSREAD_DU - READ DIRECT UNFORMATTED 


mo 
> 


p++ 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 per to perform 
a@ READ DIRECT UNFORMATTED I/0 statement. 


CALLING SEQUENCE: 


CALL FORSREAD_DU (unit.rl.v, record no.rl.v, 
» err_adr.j.r C, end_adr.j.rJJ) 


INPUT PARAMETERS: 
unit.rl.v Logical unit number 
record _no.rl.v record number to read 
i ae Be, optional ERR= address 
end_adr.j.rJ optional END= address 
IMPLICIT INPUTS: 
NONE except those used by FORS$I0_BEG. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE except those ieft by FORS$I10_BEG. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE except those of FORS$S$IO_BEG. 


COOOOCQOCOoCOoOooooO 


SOoCoQooooooooooooo 


FORSREAD_DU:: -MASK FORS$$IO BEG 
MOVZBL #ISB$K_ST_TY_RDO, RO ; Statement type 
JMP G*FORSSI0_-BEG+2 ; branch past call mask 


0000° 
50 08 Ga 
00000002'GF 17 


SOOOCCOSCOCOSCOOSOSSCOCOOOCOOSCOSOSO COCO OOOOOOOOOOOOOOOOOOOCOO 
DDD MOO COOCOCOCOSOCCOCCOSSCSC COCO OO OOOO O OOOO OO OOOO OOOOOOO 
ee et = ss — — 4) 9 - 48 on os Ss 3s ss 2 >) 9 2 ss 9 > 2) ss 4) 4 2 ss 
SNA AA AAA AA ADA MUU BB BEE EPPS EWI 
CON OA UE WN OS OD NAUE WIN 0 ODONAU ES WR OOONOUE WH (OOONOUFS Wh D-- 


SOOCOoOCoOoOoCoOoooooOooo 


- END 
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Symbol table 6-SEP-1984 10:59:00 CFORRTL.SRCJFORREADDU.MAR; 1 (4) s 
FORSS1O_ BEG eeereree xX 0 FI 
FORSSREC_RDO eeeeneee xX 0 F\ 
FORSSREC_RD1 eeeeenree x 0 F{ 
FORSSREC_RDO teeeeeee =X 0 F\ 
FORSSUDF _RUO eeeeeeee x 00 F{ 
FORSSUDF _RU1 eeeeeere xX 00 F{ 
FORSSUDF _RU9 tereeere YX 00 F{ 
FORSREAD_DU 00000000 RG 01 F( 
1SBS$K_ST"TY_RDU = 00000008 I 
$eceeeeeszeeee eeee+ 


' Psect synopsis ! 
tron aman seenacas wet 


PSECT name Allocation PSECT No. Attributes 
». We « 00000000 <¢ 0.) 00 ¢ O.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ( i ae PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
+ Seeeeeeceeeeoeeenoeneaoananecen + i 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time | 
Initialization 29 00:00:00.11  00:00:00.32 | 
Command processing 127 00:00:00.55 Op RO BE a6 
Pass 1 129 00:00:01.28 00:00:03.79 
Symbol table sort 0 00:00:00.19 00:00:00.44 
Pass 2 46 00:00:00.41 00:00:01.53 
Symbol table output 3 be Bs 00:00:00.02 
Psect synopsis output 2 00:00:00.0 00:00:00.08 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 338 00:00:02.60 00:00:08.71 


The working set Limit was 900 pages. . : 

6684 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol tabie space allocated to hold 187 non-local and 0 local symbols. 
178 source lines were read in Pass 1, ocodyc ne 8 object records in Pass 2. 


9 pages of virtual memory were used to define 2 macros. 
tere oreereeeeesesesesecesesesc= + 
! Macro Library statistics : 
Gemeeoeeeeceeoeeeeeeseesess 

Macro Library name Macros defined 

_$255$DUA28: CFORRTL.OBJIJFORRTL.MLB; 1 2 

$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL,, TRACEBACK) /LIS=LIS$:FORREADDU/OBJ=OBJ$:FORREADDU MSRC$:F ORREADDU/UPDATE=(ENHS:FORREADDU) +L 1 


018 AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


